home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / tasks.arc / TEST.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1990-07-31  |  921 b   |  54 lines
  1. program test;
  2.  
  3. uses crt, tasks;
  4.  
  5. var
  6.     i,j    :    longint;
  7.     er    :   byte;
  8.     tn  :   byte;
  9. {$F+}
  10. procedure proc_one(schedule : longint);
  11. begin
  12.     writeln('proc one');
  13.  
  14. end;
  15.  
  16. procedure proc_two(schedule : longint);
  17. begin
  18.     writeln('proc two');
  19.  
  20. end;
  21. {$F-}
  22.  
  23. begin
  24.  
  25.     er := add_task(10, @proc_one,tn);
  26.     er := add_task(20, @proc_two,tn);
  27.  
  28.     set_criteria(task_criteria_mod);
  29.     for i := 1 to 30 do begin
  30.         writeln('Scheduling number ',i:2);
  31.         er := run_tasks(i);
  32.         writeln('Error number ', er:2);
  33.         end;
  34.  
  35.     writeln('We change to equal to scheduling. Hit any key');
  36.     repeat until keypressed;
  37.     set_criteria(task_criteria_equal);
  38.     for i := 1 to 20 do begin
  39.         if odd(i)
  40.             then j := 10
  41.             else j := 20;
  42.  
  43.         er := run_tasks(j);
  44.         end;
  45.  
  46.     writeln('Change criteria to greater then');
  47.     repeat until keypressed;
  48.     set_criteria(task_criteria_more);
  49.     for i := 1 to 22 do
  50.         er := run_tasks(i);
  51.  
  52. end.
  53.  
  54.